{\rtf1\ansi\ansicpg1252\cocoartf1038\cocoasubrtf360
{\fonttbl\f0\fswiss\fcharset0 Helvetica;}
{\colortbl;\red255\green255\blue255;}
\paperw11900\paperh16840\margl1440\margr1440\vieww9000\viewh8400\viewkind0
\pard\tx566\tx1133\tx1700\tx2267\tx2834\tx3401\tx3968\tx4535\tx5102\tx5669\tx6236\tx6803\ql\qnatural\pardirnatural

\f0\fs24 \cf0 ##5.1##\
esa=read.table("esaligna.csv",head=T,sep=",",as.is=T)\
str(esa)\
head(esa)\
names(esa)\
summary(esa)\
par(cex.main=1.5, cex.lab=1.2, cex.axis=1.2, font.main=3,mgp=c(2,0.3,0))\
plot(esa$dap~esa$ht,ylab="dap (cm)",xlab="ht (m)",tcl=0.2,bty="L",\
main=expression(paste("Gr\'e1fico de dispers\'e3o diametro por altura")))\
\
##5.2##\
\
par(mfrow=c(2,1))\
boxplot(esa$dap~esa$talhao)\
mtext("a")\
media=tapply(esa$dap, esa$talhao, FUN=mean)\
media\
desv=tapply(esa$dap, esa$talhao, FUN=sd)\
desv\
mat=data.frame(media,desv)\
mat\
soma<-mat$media + mat$desv\
soma\
subt<-mat$media - mat$desv\
subt\
plot(unique(esa$talhao),mat$media ,xlab="Talhao",ylab="Dap",ylim=c(min(subt), max(soma)))\
segments(unique(esa$talhao),mat$media,y1=soma)\
segments(unique(esa$talhao),mat$media,y1=subt)\
points(unique(esa$talhao),soma, pch="---")\
points(unique(esa$talhao),subt, pch="---")\
mtext("b")\
\
##5.3##\
\
dados=read.table("dados5_3.csv",head=T,sep=",",as.is=T)\
str(dados)\
head(dados)\
tail(dados)\
summary(dados)\
x11()\
par(mfrow=c(1,2))\
plot(dados$x1~dados$y1, ylab="Euclidean distances",xlab="Log(Patch size)(ha)",\
  ylim=c(0,3.0),xlim=c(0.5,2.0),pch=17, bty="L",)\
linha=lm(y1~x1, data=dados)\
abline(linha)\
mtext("a", family="serif", cex=1.5, at=2.1)\
par(bty="L",tcl=0.3)\
boxplot(dados$x2~dados$y2,ylim=c(0,3),names=c("Small","Medium Edge","Medium interior","Large Edge","Large Interior","Control"),cex.main=1.10,cex.axis=0.52)\
      par(bty="L",tcl=0.3)\
text(x=1:5,y=3,labels=c("*","*","**","*","***"),cex=2.5)\
text(6.5,3,"b", cex=1)  \
\
}